 *This file creates Figure A1
 
use "D:\Dropbox\Dropbox\Lueck and Parker\JAERE submission\Final Version 2024\Data and Code for Replication\FigureA1.dta", replace
 
gen farm1000MIN = farm1000_
gen farm500MIN = farm500_
gen prurb100kMIN = prurb100k
gen pernatMIN = pernat_ipo
gen perfiacresMIN = perfiacres
gen perfuiacresMIN = perfuiacres

gen farm1000MAX = farm1000_
gen farm500MAX = farm500_
gen prurb100kMAX = prurb100k
gen pernatMAX = pernat_ipo
gen perfiacresMAX = perfiacres
gen perfuiacresMAX = perfuiacres
 
collapse (mean) farm1000_ prurb100k avfsize_ipo pernat_ipo perfiacres perfuiacres farm500_ (min) farm1000MIN prurb100kMIN pernatMIN perfiacresMIN perfuiacresMIN farm500MIN (max) farm1000MAX prurb100kMAX pernatMAX perfiacresMAX perfuiacresMAX farm500MAX, by(year)

*Making Graphs

set scheme s1mono, permanently

twoway (line prurb100kMIN year, sort lcolor(black) lwidth(medthick) lpattern(dash)) (line prurb100k year, sort lcolor(black) lwidth(medthick) lpattern(solid)) (line prurb100kMAX year, sort lcolor(black) lwidth(medthick) lpattern(dash)), xtitle("") subtitle(Percent Urban Population) legend(off)
graph save "D:\Dropbox\Lueck and Parker\Data\Agency Formation\Percent Urban.gph", replace
twoway (line pernatMIN year, sort lcolor(black) lwidth(medthick) lpattern(dash)) (line pernat_ipo year, sort lcolor(black) lwidth(medthick) lpattern(solid)) (line pernatMAX year, sort lcolor(black) lwidth(medthick) lpattern(dash)), xtitle("") subtitle(Percent U.S. Born) legend(off)
graph save "D:\Dropbox\Lueck and Parker\Data\Agency Formation\Percent US Born.gph", replace
twoway (line perfiacresMIN year, sort lcolor(black) lwidth(medthick) lpattern(dash)) (line perfiacres year, sort lcolor(black) lwidth(medthick) lpattern(solid)) (line perfiacresMAX year, sort lcolor(black) lwidth(medthick) lpattern(dash)), xtitle("") subtitle(Percent Improved Farm Acres) legend(off)
graph save "D:\Dropbox\Lueck and Parker\Data\Agency Formation\Percent Improved.gph", replace
twoway (line perfuiacresMIN year, sort lcolor(black) lwidth(medthick) lpattern(dash)) (line perfuiacres year, sort lcolor(black) lwidth(medthick) lpattern(solid)) (line perfuiacresMAX year, sort lcolor(black) lwidth(medthick) lpattern(dash)), xtitle("") subtitle(Percent Unimproved Farm Acres) legend(off)
graph save "D:\Dropbox\Lueck and Parker\Data\Agency Formation\Percent Unimproved.gph", replace
twoway (line farm1000MIN year, sort lcolor(black) lwidth(medthick) lpattern(dash)) (line farm1000_ year, sort lcolor(black) lwidth(medthick) lpattern(solid)) (line farm1000MAX year, sort lcolor(black) lwidth(medthick) lpattern(dash)), xtitle("") subtitle(Number of Farms > 1000 Acres) legend(off)
graph save "D:\Dropbox\Lueck and Parker\Data\Agency Formation\Farms_1000.gph", replace
twoway (line farm500MIN year, sort lcolor(black) lwidth(medthick) lpattern(dash)) (line farm500_ year, sort lcolor(black) lwidth(medthick) lpattern(solid)) (line farm500MAX year, sort lcolor(black) lwidth(medthick) lpattern(dash)) , xtitle("") ylabel(0(10000)20000)  subtitle(Number of Farms > 500 Acres) legend(off)
graph save "D:\Dropbox\Lueck and Parker\Data\Agency Formation\Farms_500.gph", replace
graph combine "D:\Dropbox\Lueck and Parker\Data\Agency Formation\Percent Urban.gph" "D:\Dropbox\Lueck and Parker\Data\Agency Formation\Percent US Born.gph" "D:\Dropbox\Lueck and Parker\Data\Agency Formation\Percent Improved.gph" "D:\Dropbox\Lueck and Parker\Data\Agency Formation\Percent Unimproved.gph" "D:\Dropbox\Lueck and Parker\Data\Agency Formation\Farms_1000.gph" "D:\Dropbox\Lueck and Parker\Data\Agency Formation\Farms_500.gph", rows(3)


graph save "Graph" "D:\Dropbox\Dropbox\Lueck and Parker\JAERE submission\Final Version 2024\Data and Code for Replication\Log Files\Figure A1.gph", replace





